Inside segments <- lapply(...), the callback does segmentno = seq_along(segments). At that point the local segments binding does not exist yet, so the symbol resolves to graphics::segments (a closure), and seq_along(<closure>) is 1. The segmentno column is therefore always 1 instead of 1..n.

Found with https://github.com/sims1253/ry :)